home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Education / Biology / Dinosaurs / background_2611.txt < prev    next >
Encoding:
Text File  |  1988-04-19  |  2.8 KB  |  139 lines
  1. -- background: 2611 from stack: in
  2. -- bmap block id: 3620
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide card field "Info"
  9.   show card field "Title"
  10. end openCard
  11.  
  12. on closeCard
  13.   hide card field "Info"
  14. end closeCard
  15.  
  16. on mouseUp
  17.   if visible of card field "Info" is true then
  18.     hide card field "Info"
  19.   else
  20.     show card field "Info"
  21.   end if
  22. end mouseUp
  23.  
  24. on doButton
  25.   Answer "Install Button in Home?" with "No" or "Yes"
  26.   if it is not "Yes" then exit doButton
  27.   choose button tool
  28.   get the rect of target
  29.   click at (item 1 of it),(item 2 of it)
  30.   doMenu Copy Button
  31.   put card field "Stage 2" into newScript
  32.   get the short name of target
  33.   go Home
  34.   doMenu Paste Button
  35.   set the script of card button it to newScript
  36.   put "Move the button where you want it, type Command-Tab, and click it"
  37. end doButton
  38.  
  39.  
  40.  
  41. -- part 1 (button)
  42. -- low flags: 00
  43. -- high flags: 0000
  44. -- rect: left=429 top=299 right=331 bottom=461
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 902 / 902
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: 
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   visual effect scroll left
  56.   go prev card
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 2 (button)
  62. -- low flags: 00
  63. -- high flags: 0000
  64. -- rect: left=471 top=299 right=331 bottom=503
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 26425 / 26425
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: 
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   visual effect scroll right
  76.   go next card
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 3 (button)
  82. -- low flags: 00
  83. -- high flags: 0000
  84. -- rect: left=11 top=298 right=330 bottom=43
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 20098 / 20098
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: 
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   visual effect iris open
  96.   go home
  97. end mouseUp
  98.  
  99.  
  100.  
  101. -- part 5 (button)
  102. -- low flags: 00
  103. -- high flags: 0000
  104. -- rect: left=239 top=302 right=330 bottom=285
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 32670 / 32670
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: 
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   visual effect scroll left
  116.   show all cards
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 8 (button)
  122. -- low flags: 00
  123. -- high flags: 0000
  124. -- rect: left=386 top=299 right=331 bottom=420
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 21449 / 21449
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: 
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   visual effect dissolve
  136.   go to card "Destination"
  137. end mouseUp
  138.  
  139.